object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'RCT DB Demo Server'
  ClientHeight = 182
  ClientWidth = 473
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblStatus: TLabel
    Left = 26
    Top = 39
    Width = 116
    Height = 13
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Caption = #25353#8220#20542#21548#8221#21551#21160#26381#21153#22120#12290
  end
  object lbl1: TLabel
    Left = 26
    Top = 13
    Width = 51
    Height = 13
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Caption = #30417#21548#31471#21475' '
  end
  object btnListen: TButton
    Left = 172
    Top = 7
    Width = 82
    Height = 26
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Caption = #20542#21548
    TabOrder = 0
    OnClick = btnListenClick
  end
  object edtPort: TEdit
    Left = 101
    Top = 10
    Width = 65
    Height = 21
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    TabOrder = 1
    Text = '81'
  end
  object rtchtpsrvr1: TRtcHttpServer
    OnListenStart = rtchtpsrvr1ListenStart
    OnListenStop = rtchtpsrvr1ListenStop
    Left = 40
    Top = 72
  end
  object rtcfnctngrp1: TRtcFunctionGroup
    Left = 40
    Top = 128
  end
  object rtcfnctnSelect: TRtcFunction
    Group = rtcfnctngrp1
    FunctionName = 'select'
    OnExecute = rtcfnctnSelectExecute
    Left = 200
    Top = 72
  end
  object rtcfnctnSubmit: TRtcFunction
    Group = rtcfnctngrp1
    FunctionName = 'submit'
    OnExecute = rtcfnctnSubmitExecute
    Left = 200
    Top = 128
  end
  object rtcsrvrmdl1: TRtcServerModule
    Server = rtchtpsrvr1
    Compression = cDefault
    ModuleFileName = '/biolife('#26631#35782')'
    FunctionGroup = rtcfnctngrp1
    Left = 128
    Top = 64
  end
  object con1: TUniConnection
    ProviderName = 'Access'
    Database = 'E:\CookCode\RtcDBDemo\dbdemos.mdb'
    Left = 384
    Top = 32
  end
  object AccessUniProvider1: TAccessUniProvider
    Left = 352
    Top = 104
  end
end
